PC Play 129/pc play 129.iso/Demo/man2/man2.exe/scenarios/train/Train 01.scl

Text File | 2005-11-28 | 4.7 KB | 183 lines

scenario = GetProperties()
scenario.ScenarioType = 1
scenario.Title = "sc_Train_01_00"
scenario.Map = "Beotorum.dat"
scenario.Description = "sc_Train_01_01"
scenario.Picture = "Train 01.dds"
scenario.iSortOrder = 1

scenario.vShowMessageBoxes[STDDT_AUTOFINISH_COMBAT] = false
scenario.vShowMessageBoxes[STDDT_COMBAT_PHASE] = false
scenario.vShowMessageBoxes[STDDT_YOU_CAPTURED_CAPITAL] = false
scenario.vShowMessageBoxes[STDDT_YOU_CLEARED_TERRITORY] = false
scenario.vShowMessageBoxes[STDDT_ENEMY_CLEARED_TERRITORY] = false
scenario.vShowMessageBoxes[STDDT_YOU_CAPTURED_COUNTRY] = false
scenario.vShowMessageBoxes[STDDT_ENEMY_CAPTURED_COUNTRY] = false

Player(PT_PLAYER, RACE_HUMANS)
Player(PT_AI, RACE_ALIENS)

SetInitialCamera(0.801762, 0.000000, -0.597644, 0.000000, 0.258503, 0.901616, 0.346792, 0.000000, 0.538845, -0.432537, 0.722881, 0.000000, 1300.792725, 313.237396, -1211.475952, 1.000000)

function InitialMOB()
    StartMOB(1)

    ShowBallon(1, -1, MBS_CENTER, 26, 16, "sc_Train_01_02")

    SetCameraSpeed(0.3)
    FlyCamera(0.579716, 0.000000, -0.814818, 0.000000, 0.279399, 0.939373, 0.198783, 0.000000, 0.765418, -0.342898, 0.544570, 0.000000, 1230.041260, 169.965378, -993.272095, 1.000000)

    ShowBallon(2, -1, MBS_LEFT, 22, 24, "sc_Train_01_03")

    pause(0.5)
    FlyCamera(-0.033254, 0.000000, -0.999447, 0.000000, 0.869974, 0.492247, -0.028946, 0.000000, 0.491974, -0.870456, -0.016369, 0.000000, 1299.193359, 295.358551, -953.663208, 1.000000)

    ShowObject(ARROW, 1, 65280, 100, 50, 21, 25, 23, 25)
    ShowBallon(3, -1, MBS_LEFT, 23, 25, "sc_Train_01_04")
    HideObject(1)

    pause(0.5)

    FinishMOB()

    SetCamera(-0.033254, 0.000000, -0.999447, 0.000000, 0.869974, 0.492247, -0.028946, 0.000000, 0.491974, -0.870456, -0.016369, 0.000000, 1299.193359, 295.358551, -953.663208, 1.000000)
end

function OnHexClicked(x, y, clicked_unit, selected_unit, command)
    if ( GetCapitalControl( 4 ) ~= COLOR_GREEN ) then
        if (command == CMD_SELECT) then
            StartMOB(1)

            ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_06")

            FinishMOB()
        end

        if (command == CMD_MOVE) then
            if ( x == 23 and y == 25 ) then
                pause(0.1)
                stop()

                StartMOB(1)

                ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_07")

                FinishMOB()

                EndTurn()
            else
                IncorrectAction("sc_Train_01_05")
            end
        end
    end

    if ( IsDeployed(1) ) then
        if (command == CMD_SELECT) then
            if ( GetDistance( 4098, 1 ) > 2 ) then

                StartMOB(1)

                ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_08")
                ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_08a")

                FinishMOB()
            end
        end

        if (command == CMD_MOVE) then
            if ( GetDistance( 1, x, y ) <= 2 and GetDistance( 4098, 1 ) > 2 ) then
                pause(0.1)
                stop()

                StartMOB(1)

                ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_09")

                FinishMOB()
            else
                IncorrectAction("sc_Train_01_05")
            end
        end
    end
end

old_prompt = ""

function OnUpdate()
    if ( GetGamePhase() == PHASE_COMBAT ) then
        if ( GetSelectedUnit() == 0 ) then
            ShowPrompting("sc_Train_01_10")
        else
            if ( GetCapitalControl( 4 ) ~= COLOR_GREEN ) then
                ShowPrompting("sc_Train_01_11")
            end

            if ( IsDeployed(1) ) then
                if ( GetDistance( 1, 4098 ) <= 2 ) then
                    ShowPrompting("sc_Train_01_12")
                else
                    ShowPrompting("sc_Train_01_13")
                end
            end
        end
    end
end

function OnUnitDead(unit)
    if(unit == 1) then
        pause(0.1)
        stop()

        StartMOB(1)

        ShowXBallon(51, -1, MBS_CENTER, 300, 300, "sc_Train_01_14")

        FinishMOB()
    end
end

function CheckForVictory()
    if ( IsPerished(1) ) then
        return GAMERESULT_VICTORY
    end

    if ( GetAliveUnitsAmount( COLOR_GREEN ) == 0 ) then
        return GAMERESULT_DEFEAT
    end

    return GAMERESULT_NONE
end

function OnEndAITurn()
    if ( GetCapitalControl(4) == COLOR_GREEN and IsDeployed(1) == false ) then
        StartMOB(1)

        SetupUnit(1, LTRANSPA, 24, 30)

        FlyCamera(0.701976, -0.000000, -0.712201, 0.000000, 0.337245, 0.880780, 0.332403, 0.000000, 0.627292, -0.473525, 0.618287, 0.000000, 1388.583008, 183.017242, -1236.386963, 1.000000)

        ShowBallon(52, -1, MBS_CENTER, 27, 23, "sc_Train_01_15")

        FlyCamera(-0.495666, 0.000000, -0.868513, 0.000000, 0.840950, 0.249932, -0.479935, 0.000000, 0.217070, -0.968263, -0.123883, 0.000000, 1404.291870, 369.752289, -1018.802307, 1.000000)

        ShowXBallon(53, -1, MBS_CENTER, 300, 300, "sc_Train_01_16")

        FinishMOB()
    end
end

function aiUnit( unit )
    if (unit == 1) then
        aiMustNot()
        aiSetFear(0)
        aiInitialPosAttraction(5, 10)
    end
end

function InitialSetup()
    Country(4, ALLIANCE_NEUTRAL)
    Money(4, MONEY_GUERRILLA, 0)
    Money(4, MONEY_TOTAL_REVENUE, 0)
    SetupUnit(4098, HBOT, 21, 25)
end